Whiteline: Alpha/Whiteline Alpha.iso/tools/prtfolio/port_2/basic/bio.bas

BASIC Source File | 1994-09-22 | 12.0 KB | 329 lines

rem für portfolio von R.Rumrich
cls
DIM b$(6),x(3)
cls
locate 4,14 print"BIORYTHMUS"
locate 8,1:print "Nach Eingaben >RETURN sonst bel. Taste":wait
b$(0)="Montag"
b$(1)="Dienstag"
b$(2)="Mittwoch"
b$(3)="Donnerstag"
b$(4)="Freitag"
b$(5)="Samstag"
b$(6)="Sonntag"
dim g(4),h(4),y(4)
cls
30 input "Heutiger Tag?[X-od-XX] ",h(0)
   input "Monat? [X-od-XX]       ",h(1)
   input "Jahr?[XXXX]            ",h(2)
input"Alles korrektJ/N";k$:if k$="n" then 30
50 Input "Geburtstag?            ",g(0)
   input "Geburtsmonat?          ",g(1)
   input "Geburtsjahr?           ",g(2)
input"Alles korrektJ/N";k$:if k$="n" then 50
   y(0)=h(0):y(2)=h(1)
   y(1)=h(2):t=g(0):m=g(1):j=g(2)
GOSUB 200
g(3)=s:g(4)=j:k=y(3):t=h(0):m=h(1):j=h(2)
GOSUB 200
h(3)=s:h(4)=j:r=y(3):l=h(3)-g(3)+1
p=l-int(l/23)*23:if p=0 then p=23
i=l-int(l/33)*33:if i=0 then i=33
e=l-int(l/28)*28:if e=0 then e=28
b=l-int(l/38)*38:if b=0 then b=38
cls
print "Geburtstag = ";b$(k)
print "Heute =      ";b$(r)
print "Du bist ";l-1;" Tage alt!"
print "Deine heutige Verfassung:":wait
cls
c$=" Positiv":n$=" Negativ"
k$=" VORSICHT!"
if p=1 then x$=k$
if p>=2 then x$=c$
if p=12 then x$=k$
if p>=13 then x$=n$
print "KÖRPERLICH:";p;x$; " 1+12=kr-23 Tage"
print
if i=1 then x$=k$
if i>=2 then x$=c$
if i=17 then x$=k$
if i>=18 then x$=n$
print "GEISTIG:   ";i;x$; " 1+17=kr-33 Tage"
print
if e=1 then x$=k$
if e>=2 then x$=c$
if e=15 then x$=k$
if e>=16 then x$=n$
print "SEELISCH   ";e;x$;" 1+15=kr-28 Tage"
print
if b=1 then x$=k$
if b>=2 then x$=c$
if b=19 then X$=k$
if b>=20 then x$=n$
print "FEINSINNIG:";b;x$;" 1+19=kr-39 Tage"
wait
if a$ = "j" then goto 180
if a$ = "y" then goto 1025
180 cls: INPUT "Partnerschaftsanalyse(Y/N)";a$
182 if a$ = "n" then GOTO 5100
183 if a$ = "y" then GOTO 1000
200 if m<3 then 220
210 goto 230
220 j=j-1: m=m+12
230 s= int(365.25*j)-int(j/100)+int(j/400)+31*(m-1)
235 s=s-int(.4*m+2.3)+t
240 j=s+1721060:y(3)=j-int(j/7)*7:return
1000 q=p: z=i:u=e:f=b:p=0:i=0:e=0:b=0
1020 print "Neue daten eingeben!":goto 50
1025 cls
 x(0)=int(p-q):if x(0)>11 then x(0)=23-abs(p-q)
 if x(0)<0 then x(0) =x(0)*-1
 x(0)=x(0)*100/11.5
 x(0)=100-x(0)
print "Körperliche   Übereinstimmung ";int(x(0));"%"
 x(1)=abs(i-z):if x(1)>16.5 then x(1)=33-abs(z-i)
 if x(1)<0 then x(1) =x(1)*-1
 x(1)=x(1)*100/16.5
 x(1)=100-x(1)
print "Geistige      Übereinstimmung ";int(x(1));"%"
 x(2)=abs(e-u):if x(2)>14 then x(2)=28-abs(e-u)
 if x(2)<0 then x(2) =x(2)*-1
 x(2)=x(2)*100/14
 x(2)=100-x(2)
print "Seelische     Übereinstimmung ";int(x(2));"%"
 x(3)=abs(b-f):if x(3)>19 then x(3)=38-abs(b-f)
 if x(3)<0 then x(3) =x(3)*-1
 x(3)=x(3)*100/19
 x(3)=100-x(3)
print "Feinsinnliche Übereinstimmung ";int(x(3));"%"
d=int(x(0)+x(1)+x(2)+x(3))/4
print "Durchschnitt                  ";d;"%"
print
print "Es folgt die Deutung. Taste!"
wait:cls
if x(0)<=4 then gosub 6000
if x(0)>4 and x(0)<22 then gosub 6010
if x(0)>=22 and x(0)<39 then gosub 6020
if x(0)>=39 and x(0)<65 then gosub 6030
if x(0)>=65 and x(0)<91 then gosub 6040
if x(0)>91 then gosub 6050
wait:cls
if x(2)<=7 then gosub 7000
if x(2)>7 and x(2)<21 then gosub 7010
if x(2)>=21 and x(2)<36 then gosub 7020
if x(2)>=36 and x(2)<64 then gosub 7030
if x(2)>=64 and x(2)<93 then gosub 7040
if x(2)>=93 then gosub 7050
wait:cls
if x(1)<=3 then gosub 8000
if x(1)>3 and x(1)<21 then gosub 8010
if x(1)>=21 and x(1)<39 then gosub 8020
if x(1)>=39 and x(1)<64 then gosub 8030
if x(1)>=64 and x(1)<94 then gosub 8040
if x(1)>=94 then gosub 8050
wait:cls
if x(3)<5 then gosub 9000
if x(3)>=5 and x(3)<21 then gosub 9010
if x(3)>=21 and x(3)<37 then gosub 9020
if x(3)>=37 and x(3)<63 then gosub 9030
if x(3)>=63 and x(3)<95 then gosub 9040
if x(3)>=95 then gosub 9050
wait:cls
print "Weitere Partner (Y/N)?";:input a$
cls
if a$="y" then 1020
if a$="n" then 5100
5100 input "Neue Berechnung(J/N)?";a$
if a$ ="j" then 50
if a$ ="n" then end
6000 print "K-Übereinst. ";int(x(0));"%-ungewöhnl.Anziehung"
print "Diese gegenläufige Partnerschaft ist "
print "ein Sonderfall: Man beobachtet am An-"
print "fang eine starke erotische Anziehung,"
print "die jedoch mit der Zeit abkühlt und in"
print "Abneigung o. sogar Haβ umschlagen kann"
print "Allg. keine harmonische Partnerschaft"
return
6010 Print "K-Übereinst. ";int(x(0));"%-schwache Anziehung"
print "Es stellen sich Abneigungen ein, wie "
print "Gleichgültigkeit, Zurückhaltung, vor-"
print "sichtiges Handeln. Körperliche Anzieh-"
print "ung ist die Ausnahme. Lustlosigkeit in"
print "erotischem Verlangen. Man braucht ein"
print "groβes Maβ an Anpassung."
return
6020 print "K-Übereinst. ";int(x(0));"%-mäβige Anziehung"
print "Meiβt dämpfende Wirkung im erotischen "
print "Bereich.Unterschiede in Aktivität(körp."
print "Tätigkeit) z.B. Sport. Der Wunsch nach"
print "gemeinsamen Tun hält sich in Grenzen."
return
6030Print "K-Übereinst. ";int(x(0));"%-ausgeglich. Anziehung "
print "Es beseht annähernd Ausgeglichenheit"
print "in der Rythmuskurve. Die Partner kommen"
print "gut miteinander aus. Gröβere Komplika-"
print "tionen lassen sich vermeiden. In Erotik"
print "und Sexualität keine besonders starke"
print "Faszination. Viele Gemeinsamkeiten."
return
6040Print "K-Übereinst. ";int(x(0));"%-groβe Anziehung"
print "Starke Anziehungskraft, ausgeprägtes"
print "Zusammengehörigkeitsgefühl. Leistungs-"
print "bereitschaft stellt sich meist z. glei-"
print "chen Zeit ein (Sport etc.) Die Partner"
print "vertrauen einnander. Anhaltende und "
print "stabile Liebesbeziehungen."
return
6050 print "k-Übereinst. ";int(x(0));"%-überragende Anziehung"
print "Meist Liebe auf d. ersten Blick.Höchst-"
print "werte in Harmonie und Glücksempfinden."
print "Zwei Herzen schlagen im gleichen Takt!"
print "Die starke Anziehung kann auch negativ"
print "sein, wenn man das Gefühl hat, seine"
print "Freiheit verloren zu haben."
return
7000 print "S-Übereinst. ";int(x(2));"%-ungew. Anziehung"
print "Auβergewöhnliche Verbindungen.Ein stän-"
print "diges Auf und Ab. Starke Reize bei der"
print "ersten Begegnung. Mit der Zeit lassen"
print "aber die Bindungskräfte nach. Es gilt "
print "die Devise: Entweder Alles oder Nichts!"
return
7010 Print "S-Übereinst. "int(x(2));"%-schwache Anziehung"
print "Bedarf hoher Anpassungsbereitschaft. Es"
print "muβ m. einem Wechselbad der Gefühle ge-"
print "rechnet werd. Toleranz und Flexibilität"
print "sind gefragt. Stimmungsschwankungen."
print "Seelische Grausamkeiten sind möglich"
return
7020 print "S-Übereinst. ";int(x(2));"%-mäβige Anziehung"
print "Es kann zu Verstimmungen im Gefühlsbe-"
print "reich kommen. Man kann sich auf Dauer"
print "nur verstehen,wenn hohe Übereinstimmung"
print "auf anderen Gebieten besteht.Mangelndes"
print "Verständnis für einander. Mangel an ge-"
print "meinsamen Gefühlen."
return
7030 print "S-Übereinst. ";int(x(2));"%-ausgeglich. Anziehung"
print "Es läβt sich ein normales Funktonieren"
print "der Gefühlsmitteilen erwarten.In Zeiten"
print "gegensätzlicher Stimmungen ist der Zu-"
print "spruch des Partners nötig. Dabei werden"
print "wechselseitige Anregungen vermittelt.So"
print "entwickelt sich ein harmonisches Leben."
return
7040 print "S-Übereinst. ";int(x(2));"%-groβe Anziehung"
print "Hohe Harmoniewerte in dieser Partner-"
print "schaft. Löst romantische Empfindungen "
print "aus. Verständnis für Unzulänglichkeiten"
print "des Anderen. Man empfindet Liebe und"
print "Verehrung für ihn. Die Partner sind auf"
print "gleicher Wellenlänge!"
return
7050 print "E-Übereinst. ";int(x(2));"%-überrag. Anziehung"
print "Die Gefühle erfahren einer Übersteiger-"
print "ung. Dies führt zu tiefer Entäuschung"
print "wenn am anderen Mängel entdeckt werden"
print "Dies als Folge übergroβer Zuneigung."
print "Man lebt m. einem unerfüllbaren Wunsch-"
print "bild, das Schmerz und Leid bringen kann"
return
8000 print "G-Übereinstimmug ";int(x(1));"%-sehr ger.Anziehung"
print "Man befindet sich ständig in der kontr."
print "Phase als sein Partner. dies muβ nicht"
print "negativ sein, kann aber zu Miβver-"
print "ständnissen führen. Mögliche Probleme"
print "in Komunikation auf gestigem Gebiet."
print "Meinungsverschiedenheiten vermeiden!"
return
8010 print "G-Übereinst. ";int(x(1));"%-schwache Anziehung"
print "Geringe Übereinstimmung und geistige"
print "Anziehungskraft. Kann nur mit viel To-"
print "renanz der Partner auf geistigem Gebiet"
print "überwunden werden. Sonst Gefahr, daβ"
print "die geistigen Intressen die Partner-"
print "schaft erheblich belasten"
return
8020 print "G-Übereinst. ";int(x(1));"%-mäβige Anziehung"
print "Möglich, daβ die Übereinstimmung aus-"
print "reicht, sich der geist. Unterschiede"
print "bewuβt zu sein u. man e. Gefährdung der"
print "Beziehung nicht aufkommen läβt.Die Part"
print "nerschaft ist abhängig von einer grös-"
print "seren Harmonie auf anderen Biorythmen"
return
8040 print "G-Übereinstimmung. ";int(x(1));"%-groβe Anziehung"
print "Groβe geistige Verwandtschaft, inten-"
print "siver Gedankenaustausch, recht günstig"
print "für die Partnerbeziehung. Fehlender"
print "seelischer Gleichklang kann durch gei-"
print "seistige Komunikation wett gemacht wer-"
print "den. Berufliche Zusammenarbeit möglich."
return
8030 print "G-Übereinst. ";int(x(1));"%-ausgeglich.Anziehung"
print "Das Verständnis für die Aktivitäten des"
print "Partners werden wechselnd mehr oder we-"
print "niger groβ sein. Geistige Probleme kön-"
print "nen meist gelöst werden. Die Bereit-"
print "schaft zur Konversation ist vorhanden."
print "Miβverständnisse können geklärt werden."
return
8050 print "G-Übereinst. ";int(x(1));"%-überrag. Anziehung"
print "Fast gleichzeitig kommen Gedanken und"
print "Erkenntnisse auf.Das geistige Miteinan-"
print "der kann gut abgestimmt werden. Keine"
print "Probleme bei der Auswahl geistiger In-"
print "teressen.Zu starke Vertrautheit in spez"
print "Fragen u. Ansichten könnten stören."
return
9000 print "F-Übereinst. ";int(x(3));"%-ungewöhnl. Anziehung"
print "Feinsinnige Wahrnehmungen sind hier"
Print "durch ihre Polarität gekenntzeichnet."
print "Trotzdem kommt es nicht unbedingt zu"
print "einer Blockade gemeinsamer Empfindungen"
print "Doch sind Disharmonien nicht auszu-"
print "schlieβen, trotz Reiz der Gegensätze"
return
9010 print "F-Übereinst. ";int(x(3));"%-Sehr ger. Anziehung"
print "Die Unterschiede im Vermögen, Umwelt-"
print "eindrücke wahrzunehmen und zu verar-"
print "beiten, werden oft belasten wirken. Ein"
print "groβes Maβ an Freizügigkeit und Einfüh-"
print "lungsvermögen könnten Spannungen ab-"
print "bauen helfen."
return
9020 print "F-Übereinst. ";int(x(3));"%-Mäβige Anziehung"
print "Der Beurteilung geschmacklicher Dinge"
print "fehlt die gemeinsame Linie. Bei Fragen"
print "der künstlerischen Gestaltung meist "
print "kein gemeinsamer Nenner. Gefahr sich "
print "auf den Geist zu gehen! Sinnvolle Er-"
print "gänzungen könnten zu Harmonie führen."
return
9030 print "F-Übereinst. ";int(x(3));"%-ausgegl. Anziehung"
print "Trotz Reibungsanlässen kommen die Part-"
print "ner zufriedenstellend mit einander aus"
print "Man muβ sich nur den nötigen Freiraum"
print "zubilligen. Toleranz sind ergänzende "
print "Möglichkeiten für gute Kompromisse. Oft"
print "beleben andersart. Schönheitsempfinden."
return
9040 print "F-Übereinst. ";int(x(3));"%-groβe Anziehung"
print "Gleichartige Äuβerungen des intuitiven"
print "Empfindens wirken sich förderlich auf"
print "den Bestand der Partnerschaft. Die äs-"
print "thetische Intimität vermittelt gemein-"
print "sames Erleben von Schönheit z.B. i.der"
print "Natur, Kunst, des Zusammenseins."
return
9050 print "F-Übereinst. ";int(x(3));"%-überrag. Anziehung"
print "Eine so weitgehende Übereinstimmung der"
print "feinsinnigen Empfindungen wird wahr-"
print "scheinlich groβe Bindungskräfte frei-"
print "machen und für die Dauerhaftigeit der"
print "Beziehung zwischen den Partner förder-"
print "lich sein. Abhängigkeit kann sich bild."
return